home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue49 / ComCorn / VBIDE_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-01  |  79.3 KB  |  1,762 lines
  1. unit VBIDE_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                  //
  5. // -------                                                                  //
  6. // The types declared in this file were generated from data read from a     //
  7. // Type Library. If this type library is explicitly or indirectly (via      //
  8. // another type library referring to this type library) re-imported, or the //
  9. // 'Refresh' command of the Type Library Editor activated while editing the //
  10. // Type Library, the contents of this file will be regenerated and all      //
  11. // manual modifications will be lost.                                       //
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11.1.75  $
  15. // File generated on 8/1/99 8:35:51 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB
  19. // IID\LCID: {0002E157-0000-0000-C000-000000000046}\0
  20. // Helpfile: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbob6.chm
  21. // HelpString: Microsoft Visual Basic for Applications Extensibility 5.3
  22. // Version:    5.3
  23. // ************************************************************************ //
  24.  
  25. interface
  26.  
  27. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL, 
  28.   Office_TLB;
  29.  
  30. // *********************************************************************//
  31. // GUIDS declared in the TypeLibrary. Following prefixes are used:      //
  32. //   Type Libraries     : LIBID_xxxx                                    //
  33. //   CoClasses          : CLASS_xxxx                                    //
  34. //   DISPInterfaces     : DIID_xxxx                                     //
  35. //   Non-DISP interfaces: IID_xxxx                                      //
  36. // *********************************************************************//
  37. const
  38.   LIBID_VBIDE: TGUID = '{0002E157-0000-0000-C000-000000000046}';
  39.   IID_Application_: TGUID = '{0002E158-0000-0000-C000-000000000046}';
  40.   IID_VBE: TGUID = '{0002E166-0000-0000-C000-000000000046}';
  41.   IID_Window_: TGUID = '{0002E16B-0000-0000-C000-000000000046}';
  42.   IID__Windows_old: TGUID = '{0002E16A-0000-0000-C000-000000000046}';
  43.   IID__Windows_: TGUID = '{F57B7ED0-D8AB-11D1-85DF-00C04F98F42C}';
  44.   CLASS_Windows: TGUID = '{0002E185-0000-0000-C000-000000000046}';
  45.   IID__LinkedWindows: TGUID = '{0002E16C-0000-0000-C000-000000000046}';
  46.   CLASS_LinkedWindows: TGUID = '{0002E187-0000-0000-C000-000000000046}';
  47.   IID_Events: TGUID = '{0002E167-0000-0000-C000-000000000046}';
  48.   IID__VBProjectsEvents: TGUID = '{0002E113-0000-0000-C000-000000000046}';
  49.   DIID__dispVBProjectsEvents: TGUID = '{0002E103-0000-0000-C000-000000000046}';
  50.   IID__VBComponentsEvents: TGUID = '{0002E115-0000-0000-C000-000000000046}';
  51.   DIID__dispVBComponentsEvents: TGUID = '{0002E116-0000-0000-C000-000000000046}';
  52.   IID__ReferencesEvents: TGUID = '{0002E11A-0000-0000-C000-000000000046}';
  53.   DIID__dispReferencesEvents: TGUID = '{0002E118-0000-0000-C000-000000000046}';
  54.   CLASS_ReferencesEvents: TGUID = '{0002E119-0000-0000-C000-000000000046}';
  55.   IID__CommandBarControlEvents: TGUID = '{0002E130-0000-0000-C000-000000000046}';
  56.   DIID__dispCommandBarControlEvents: TGUID = '{0002E131-0000-0000-C000-000000000046}';
  57.   CLASS_CommandBarEvents: TGUID = '{0002E132-0000-0000-C000-000000000046}';
  58.   IID__ProjectTemplate: TGUID = '{0002E159-0000-0000-C000-000000000046}';
  59.   CLASS_ProjectTemplate: TGUID = '{32CDF9E0-1602-11CE-BFDC-08002B2B8CDA}';
  60.   IID__VBProject_Old: TGUID = '{0002E160-0000-0000-C000-000000000046}';
  61.   IID__VBProject: TGUID = '{EEE00915-E393-11D1-BB03-00C04FB6C4A6}';
  62.   CLASS_VBProject: TGUID = '{0002E169-0000-0000-C000-000000000046}';
  63.   IID__VBProjects_Old: TGUID = '{0002E165-0000-0000-C000-000000000046}';
  64.   IID__VBProjects: TGUID = '{EEE00919-E393-11D1-BB03-00C04FB6C4A6}';
  65.   CLASS_VBProjects: TGUID = '{0002E101-0000-0000-C000-000000000046}';
  66.   IID_SelectedComponents: TGUID = '{BE39F3D4-1B13-11D0-887F-00A0C90F2744}';
  67.   IID__Components: TGUID = '{0002E161-0000-0000-C000-000000000046}';
  68.   CLASS_Components: TGUID = '{BE39F3D6-1B13-11D0-887F-00A0C90F2744}';
  69.   IID__VBComponents_Old: TGUID = '{0002E162-0000-0000-C000-000000000046}';
  70.   IID__VBComponents: TGUID = '{EEE0091C-E393-11D1-BB03-00C04FB6C4A6}';
  71.   CLASS_VBComponents: TGUID = '{BE39F3D7-1B13-11D0-887F-00A0C90F2744}';
  72.   IID__Component: TGUID = '{0002E163-0000-0000-C000-000000000046}';
  73.   CLASS_Component: TGUID = '{BE39F3D8-1B13-11D0-887F-00A0C90F2744}';
  74.   IID__VBComponent_Old: TGUID = '{0002E164-0000-0000-C000-000000000046}';
  75.   IID__VBComponent: TGUID = '{EEE00921-E393-11D1-BB03-00C04FB6C4A6}';
  76.   CLASS_VBComponent: TGUID = '{BE39F3DA-1B13-11D0-887F-00A0C90F2744}';
  77.   IID_Property_: TGUID = '{0002E18C-0000-0000-C000-000000000046}';
  78.   IID__Properties: TGUID = '{0002E188-0000-0000-C000-000000000046}';
  79.   CLASS_Properties: TGUID = '{0002E18B-0000-0000-C000-000000000046}';
  80.   IID__AddIns: TGUID = '{DA936B62-AC8B-11D1-B6E5-00A0C90F2744}';
  81.   CLASS_Addins: TGUID = '{DA936B63-AC8B-11D1-B6E5-00A0C90F2744}';
  82.   IID_AddIn: TGUID = '{DA936B64-AC8B-11D1-B6E5-00A0C90F2744}';
  83.   IID__CodeModule: TGUID = '{0002E16E-0000-0000-C000-000000000046}';
  84.   CLASS_CodeModule: TGUID = '{0002E170-0000-0000-C000-000000000046}';
  85.   IID__CodePanes: TGUID = '{0002E172-0000-0000-C000-000000000046}';
  86.   CLASS_CodePanes: TGUID = '{0002E174-0000-0000-C000-000000000046}';
  87.   IID__CodePane: TGUID = '{0002E176-0000-0000-C000-000000000046}';
  88.   CLASS_CodePane: TGUID = '{0002E178-0000-0000-C000-000000000046}';
  89.   IID__References: TGUID = '{0002E17A-0000-0000-C000-000000000046}';
  90.   IID_Reference: TGUID = '{0002E17E-0000-0000-C000-000000000046}';
  91.   DIID__dispReferences_Events: TGUID = '{CDDE3804-2064-11CF-867F-00AA005FF34A}';
  92.   CLASS_References: TGUID = '{0002E17C-0000-0000-C000-000000000046}';
  93.  
  94. // *********************************************************************//
  95. // Declaration of Enumerations defined in Type Library                  //
  96. // *********************************************************************//
  97. // vbextFileTypes constants
  98. type
  99.   vbextFileTypes = TOleEnum;
  100. const
  101.   vbextFileTypeForm = $00000000;
  102.   vbextFileTypeModule = $00000001;
  103.   vbextFileTypeClass = $00000002;
  104.   vbextFileTypeProject = $00000003;
  105.   vbextFileTypeExe = $00000004;
  106.   vbextFileTypeFrx = $00000005;
  107.   vbextFileTypeRes = $00000006;
  108.   vbextFileTypeUserControl = $00000007;
  109.   vbextFileTypePropertyPage = $00000008;
  110.   vbextFileTypeDocObject = $00000009;
  111.   vbextFileTypeBinary = $0000000A;
  112.   vbextFileTypeGroupProject = $0000000B;
  113.   vbextFileTypeDesigners = $0000000C;
  114.  
  115. // vbext_WindowType constants
  116. type
  117.   vbext_WindowType = TOleEnum;
  118. const
  119.   vbext_wt_CodeWindow = $00000000;
  120.   vbext_wt_Designer = $00000001;
  121.   vbext_wt_Browser = $00000002;
  122.   vbext_wt_Watch = $00000003;
  123.   vbext_wt_Locals = $00000004;
  124.   vbext_wt_Immediate = $00000005;
  125.   vbext_wt_ProjectWindow = $00000006;
  126.   vbext_wt_PropertyWindow = $00000007;
  127.   vbext_wt_Find = $00000008;
  128.   vbext_wt_FindReplace = $00000009;
  129.   vbext_wt_Toolbox = $0000000A;
  130.   vbext_wt_LinkedWindowFrame = $0000000B;
  131.   vbext_wt_MainWindow = $0000000C;
  132.   vbext_wt_ToolWindow = $0000000F;
  133.  
  134. // vbext_WindowState constants
  135. type
  136.   vbext_WindowState = TOleEnum;
  137. const
  138.   vbext_ws_Normal = $00000000;
  139.   vbext_ws_Minimize = $00000001;
  140.   vbext_ws_Maximize = $00000002;
  141.  
  142. // vbext_ProjectType constants
  143. type
  144.   vbext_ProjectType = TOleEnum;
  145. const
  146.   vbext_pt_HostProject = $00000064;
  147.   vbext_pt_StandAlone = $00000065;
  148.  
  149. // vbext_ProjectProtection constants
  150. type
  151.   vbext_ProjectProtection = TOleEnum;
  152. const
  153.   vbext_pp_none = $00000000;
  154.   vbext_pp_locked = $00000001;
  155.  
  156. // vbext_VBAMode constants
  157. type
  158.   vbext_VBAMode = TOleEnum;
  159. const
  160.   vbext_vm_Run = $00000000;
  161.   vbext_vm_Break = $00000001;
  162.   vbext_vm_Design = $00000002;
  163.  
  164. // vbext_ComponentType constants
  165. type
  166.   vbext_ComponentType = TOleEnum;
  167. const
  168.   vbext_ct_StdModule = $00000001;
  169.   vbext_ct_ClassModule = $00000002;
  170.   vbext_ct_MSForm = $00000003;
  171.   vbext_ct_ActiveXDesigner = $0000000B;
  172.   vbext_ct_Document = $00000064;
  173.  
  174. // vbext_ProcKind constants
  175. type
  176.   vbext_ProcKind = TOleEnum;
  177. const
  178.   vbext_pk_Proc = $00000000;
  179.   vbext_pk_Let = $00000001;
  180.   vbext_pk_Set = $00000002;
  181.   vbext_pk_Get = $00000003;
  182.  
  183. // vbext_CodePaneview constants
  184. type
  185.   vbext_CodePaneview = TOleEnum;
  186. const
  187.   vbext_cv_ProcedureView = $00000000;
  188.   vbext_cv_FullModuleView = $00000001;
  189.  
  190. // vbext_RefKind constants
  191. type
  192.   vbext_RefKind = TOleEnum;
  193. const
  194.   vbext_rk_TypeLib = $00000000;
  195.   vbext_rk_Project = $00000001;
  196.  
  197. type
  198.  
  199. // *********************************************************************//
  200. // Forward declaration of interfaces defined in Type Library            //
  201. // *********************************************************************//
  202.   Application_ = interface;
  203.   Application_Disp = dispinterface;
  204.   VBE = interface;
  205.   VBEDisp = dispinterface;
  206.   Window_ = interface;
  207.   Window_Disp = dispinterface;
  208.   _Windows_old = interface;
  209.   _Windows_oldDisp = dispinterface;
  210.   _Windows_ = interface;
  211.   _Windows_Disp = dispinterface;
  212.   _LinkedWindows = interface;
  213.   _LinkedWindowsDisp = dispinterface;
  214.   Events = interface;
  215.   EventsDisp = dispinterface;
  216.   _VBProjectsEvents = interface;
  217.   _dispVBProjectsEvents = dispinterface;
  218.   _VBComponentsEvents = interface;
  219.   _dispVBComponentsEvents = dispinterface;
  220.   _ReferencesEvents = interface;
  221.   _dispReferencesEvents = dispinterface;
  222.   _CommandBarControlEvents = interface;
  223.   _dispCommandBarControlEvents = dispinterface;
  224.   _ProjectTemplate = interface;
  225.   _ProjectTemplateDisp = dispinterface;
  226.   _VBProject_Old = interface;
  227.   _VBProject_OldDisp = dispinterface;
  228.   _VBProject = interface;
  229.   _VBProjectDisp = dispinterface;
  230.   _VBProjects_Old = interface;
  231.   _VBProjects_OldDisp = dispinterface;
  232.   _VBProjects = interface;
  233.   _VBProjectsDisp = dispinterface;
  234.   SelectedComponents = interface;
  235.   SelectedComponentsDisp = dispinterface;
  236.   _Components = interface;
  237.   _ComponentsDisp = dispinterface;
  238.   _VBComponents_Old = interface;
  239.   _VBComponents_OldDisp = dispinterface;
  240.   _VBComponents = interface;
  241.   _VBComponentsDisp = dispinterface;
  242.   _Component = interface;
  243.   _ComponentDisp = dispinterface;
  244.   _VBComponent_Old = interface;
  245.   _VBComponent_OldDisp = dispinterface;
  246.   _VBComponent = interface;
  247.   _VBComponentDisp = dispinterface;
  248.   Property_ = interface;
  249.   Property_Disp = dispinterface;
  250.   _Properties = interface;
  251.   _PropertiesDisp = dispinterface;
  252.   _AddIns = interface;
  253.   _AddInsDisp = dispinterface;
  254.   AddIn = interface;
  255.   AddInDisp = dispinterface;
  256.   _CodeModule = interface;
  257.   _CodeModuleDisp = dispinterface;
  258.   _CodePanes = interface;
  259.   _CodePanesDisp = dispinterface;
  260.   _CodePane = interface;
  261.   _CodePaneDisp = dispinterface;
  262.   _References = interface;
  263.   _ReferencesDisp = dispinterface;
  264.   Reference = interface;
  265.   ReferenceDisp = dispinterface;
  266.   _dispReferences_Events = dispinterface;
  267.  
  268. // *********************************************************************//
  269. // Declaration of CoClasses defined in Type Library                     //
  270. // (NOTE: Here we map each CoClass to its Default Interface)            //
  271. // *********************************************************************//
  272.   Windows = _Windows_;
  273.   LinkedWindows = _LinkedWindows;
  274.   ReferencesEvents = _ReferencesEvents;
  275.   CommandBarEvents = _CommandBarControlEvents;
  276.   ProjectTemplate = _ProjectTemplate;
  277.   VBProject = _VBProject;
  278.   VBProjects = _VBProjects;
  279.   Components = _Components;
  280.   VBComponents = _VBComponents;
  281.   Component = _Component;
  282.   VBComponent = _VBComponent;
  283.   Properties = _Properties;
  284.   Addins = _AddIns;
  285.   CodeModule = _CodeModule;
  286.   CodePanes = _CodePanes;
  287.   CodePane = _CodePane;
  288.   References = _References;
  289.  
  290.  
  291. // *********************************************************************//
  292. // Declaration of structures, unions and aliases.                       //
  293. // *********************************************************************//
  294.   PWordBool1 = ^WordBool; {*}
  295.  
  296.  
  297. // *********************************************************************//
  298. // Interface: Application_
  299. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  300. // GUID:      {0002E158-0000-0000-C000-000000000046}
  301. // *********************************************************************//
  302.   Application_ = interface(IDispatch)
  303.     ['{0002E158-0000-0000-C000-000000000046}']
  304.     function Get_Version: WideString; safecall;
  305.     property Version: WideString read Get_Version;
  306.   end;
  307.  
  308. // *********************************************************************//
  309. // DispIntf:  Application_Disp
  310. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  311. // GUID:      {0002E158-0000-0000-C000-000000000046}
  312. // *********************************************************************//
  313.   Application_Disp = dispinterface
  314.     ['{0002E158-0000-0000-C000-000000000046}']
  315.     property Version: WideString readonly dispid 100;
  316.   end;
  317.  
  318. // *********************************************************************//
  319. // Interface: VBE
  320. // Flags:     (4416) Dual OleAutomation Dispatchable
  321. // GUID:      {0002E166-0000-0000-C000-000000000046}
  322. // *********************************************************************//
  323.   VBE = interface(Application_)
  324.     ['{0002E166-0000-0000-C000-000000000046}']
  325.     function Get_VBProjects: VBProjects; safecall;
  326.     function Get_CommandBars: CommandBars; safecall;
  327.     function Get_CodePanes: CodePanes; safecall;
  328.     function Get_Windows: Windows; safecall;
  329.     function Get_Events: Events; safecall;
  330.     function Get_ActiveVBProject: VBProject; safecall;
  331.     procedure Set_ActiveVBProject(const lppptReturn: VBProject); safecall;
  332.     function Get_SelectedVBComponent: VBComponent; safecall;
  333.     function Get_MainWindow: Window_; safecall;
  334.     function Get_ActiveWindow: Window_; safecall;
  335.     function Get_ActiveCodePane: CodePane; safecall;
  336.     procedure Set_ActiveCodePane(const ppCodePane: CodePane); safecall;
  337.     function Get_Addins: Addins; safecall;
  338.     property VBProjects: VBProjects read Get_VBProjects;
  339.     property CommandBars: CommandBars read Get_CommandBars;
  340.     property CodePanes: CodePanes read Get_CodePanes;
  341.     property Windows: Windows read Get_Windows;
  342.     property Events: Events read Get_Events;
  343.     property ActiveVBProject: VBProject read Get_ActiveVBProject write Set_ActiveVBProject;
  344.     property SelectedVBComponent: VBComponent read Get_SelectedVBComponent;
  345.     property MainWindow: Window_ read Get_MainWindow;
  346.     property ActiveWindow: Window_ read Get_ActiveWindow;
  347.     property ActiveCodePane: CodePane read Get_ActiveCodePane write Set_ActiveCodePane;
  348.     property Addins: Addins read Get_Addins;
  349.   end;
  350.  
  351. // *********************************************************************//
  352. // DispIntf:  VBEDisp
  353. // Flags:     (4416) Dual OleAutomation Dispatchable
  354. // GUID:      {0002E166-0000-0000-C000-000000000046}
  355. // *********************************************************************//
  356.   VBEDisp = dispinterface
  357.     ['{0002E166-0000-0000-C000-000000000046}']
  358.     property VBProjects: VBProjects readonly dispid 107;
  359.     property CommandBars: CommandBars readonly dispid 108;
  360.     property CodePanes: CodePanes readonly dispid 109;
  361.     property Windows: Windows readonly dispid 110;
  362.     property Events: Events readonly dispid 111;
  363.     property ActiveVBProject: VBProject dispid 201;
  364.     property SelectedVBComponent: VBComponent readonly dispid 202;
  365.     property MainWindow: Window_ readonly dispid 204;
  366.     property ActiveWindow: Window_ readonly dispid 205;
  367.     property ActiveCodePane: CodePane dispid 206;
  368.     property Addins: Addins readonly dispid 209;
  369.     property Version: WideString readonly dispid 100;
  370.   end;
  371.  
  372. // *********************************************************************//
  373. // Interface: Window_
  374. // Flags:     (4416) Dual OleAutomation Dispatchable
  375. // GUID:      {0002E16B-0000-0000-C000-000000000046}
  376. // *********************************************************************//
  377.   Window_ = interface(IDispatch)
  378.     ['{0002E16B-0000-0000-C000-000000000046}']
  379.     function Get_VBE: VBE; safecall;
  380.     function Get_Collection: Windows; safecall;
  381.     procedure Close; safecall;
  382.     function Get_Caption: WideString; safecall;
  383.     function Get_Visible: WordBool; safecall;
  384.     procedure Set_Visible(pfVisible: WordBool); safecall;
  385.     function Get_Left: Integer; safecall;
  386.     procedure Set_Left(plLeft: Integer); safecall;
  387.     function Get_Top: Integer; safecall;
  388.     procedure Set_Top(plTop: Integer); safecall;
  389.     function Get_Width: Integer; safecall;
  390.     procedure Set_Width(plWidth: Integer); safecall;
  391.     function Get_Height: Integer; safecall;
  392.     procedure Set_Height(plHeight: Integer); safecall;
  393.     function Get_WindowState: vbext_WindowState; safecall;
  394.     procedure Set_WindowState(plWindowState: vbext_WindowState); safecall;
  395.     procedure SetFocus; safecall;
  396.     function Get_Type_: vbext_WindowType; safecall;
  397.     procedure SetKind(eKind: vbext_WindowType); safecall;
  398.     function Get_LinkedWindows: LinkedWindows; safecall;
  399.     function Get_LinkedWindowFrame: Window_; safecall;
  400.     procedure Detach; safecall;
  401.     procedure Attach(lWindowHandle: Integer); safecall;
  402.     function Get_HWnd: Integer; safecall;
  403.     property VBE: VBE read Get_VBE;
  404.     property Collection: Windows read Get_Collection;
  405.     property Caption: WideString read Get_Caption;
  406.     property Visible: WordBool read Get_Visible write Set_Visible;
  407.     property Left: Integer read Get_Left write Set_Left;
  408.     property Top: Integer read Get_Top write Set_Top;
  409.     property Width: Integer read Get_Width write Set_Width;
  410.     property Height: Integer read Get_Height write Set_Height;
  411.     property WindowState: vbext_WindowState read Get_WindowState write Set_WindowState;
  412.     property Type_: vbext_WindowType read Get_Type_;
  413.     property LinkedWindows: LinkedWindows read Get_LinkedWindows;
  414.     property LinkedWindowFrame: Window_ read Get_LinkedWindowFrame;
  415.     property HWnd: Integer read Get_HWnd;
  416.   end;
  417.  
  418. // *********************************************************************//
  419. // DispIntf:  Window_Disp
  420. // Flags:     (4416) Dual OleAutomation Dispatchable
  421. // GUID:      {0002E16B-0000-0000-C000-000000000046}
  422. // *********************************************************************//
  423.   Window_Disp = dispinterface
  424.     ['{0002E16B-0000-0000-C000-000000000046}']
  425.     property VBE: VBE readonly dispid 1;
  426.     property Collection: Windows readonly dispid 2;
  427.     procedure Close; dispid 99;
  428.     property Caption: WideString readonly dispid 100;
  429.     property Visible: WordBool dispid 106;
  430.     property Left: Integer dispid 101;
  431.     property Top: Integer dispid 103;
  432.     property Width: Integer dispid 105;
  433.     property Height: Integer dispid 107;
  434.     property WindowState: vbext_WindowState dispid 109;
  435.     procedure SetFocus; dispid 111;
  436.     property Type_: vbext_WindowType readonly dispid 112;
  437.     procedure SetKind(eKind: vbext_WindowType); dispid 113;
  438.     property LinkedWindows: LinkedWindows readonly dispid 116;
  439.     property LinkedWindowFrame: Window_ readonly dispid 117;
  440.     procedure Detach; dispid 118;
  441.     procedure Attach(lWindowHandle: Integer); dispid 119;
  442.     property HWnd: Integer readonly dispid 120;
  443.   end;
  444.  
  445. // *********************************************************************//
  446. // Interface: _Windows_old
  447. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  448. // GUID:      {0002E16A-0000-0000-C000-000000000046}
  449. // *********************************************************************//
  450.   _Windows_old = interface(IDispatch)
  451.     ['{0002E16A-0000-0000-C000-000000000046}']
  452.     function Get_VBE: VBE; safecall;
  453.     function Get_Parent: Application_; safecall;
  454.     function Item(index: OleVariant): Window_; safecall;
  455.     function Get_Count: Integer; safecall;
  456.     function _NewEnum: IUnknown; safecall;
  457.     property VBE: VBE read Get_VBE;
  458.     property Parent: Application_ read Get_Parent;
  459.     property Count: Integer read Get_Count;
  460.   end;
  461.  
  462. // *********************************************************************//
  463. // DispIntf:  _Windows_oldDisp
  464. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  465. // GUID:      {0002E16A-0000-0000-C000-000000000046}
  466. // *********************************************************************//
  467.   _Windows_oldDisp = dispinterface
  468.     ['{0002E16A-0000-0000-C000-000000000046}']
  469.     property VBE: VBE readonly dispid 1;
  470.     property Parent: Application_ readonly dispid 2;
  471.     function Item(index: OleVariant): Window_; dispid 0;
  472.     property Count: Integer readonly dispid 201;
  473.     function _NewEnum: IUnknown; dispid -4;
  474.   end;
  475.  
  476. // *********************************************************************//
  477. // Interface: _Windows_
  478. // Flags:     (4416) Dual OleAutomation Dispatchable
  479. // GUID:      {F57B7ED0-D8AB-11D1-85DF-00C04F98F42C}
  480. // *********************************************************************//
  481.   _Windows_ = interface(_Windows_old)
  482.     ['{F57B7ED0-D8AB-11D1-85DF-00C04F98F42C}']
  483.     function CreateToolWindow(const AddInInst: AddIn; const ProgId: WideString; 
  484.                               const Caption: WideString; const GuidPosition: WideString; 
  485.                               var DocObj: IDispatch): Window_; safecall;
  486.   end;
  487.  
  488. // *********************************************************************//
  489. // DispIntf:  _Windows_Disp
  490. // Flags:     (4416) Dual OleAutomation Dispatchable
  491. // GUID:      {F57B7ED0-D8AB-11D1-85DF-00C04F98F42C}
  492. // *********************************************************************//
  493.   _Windows_Disp = dispinterface
  494.     ['{F57B7ED0-D8AB-11D1-85DF-00C04F98F42C}']
  495.     function CreateToolWindow(const AddInInst: AddIn; const ProgId: WideString; 
  496.                               const Caption: WideString; const GuidPosition: WideString; 
  497.                               var DocObj: IDispatch): Window_; dispid 300;
  498.     property VBE: VBE readonly dispid 1;
  499.     property Parent: Application_ readonly dispid 2;
  500.     function Item(index: OleVariant): Window_; dispid 0;
  501.     property Count: Integer readonly dispid 201;
  502.     function _NewEnum: IUnknown; dispid -4;
  503.   end;
  504.  
  505. // *********************************************************************//
  506. // Interface: _LinkedWindows
  507. // Flags:     (4416) Dual OleAutomation Dispatchable
  508. // GUID:      {0002E16C-0000-0000-C000-000000000046}
  509. // *********************************************************************//
  510.   _LinkedWindows = interface(IDispatch)
  511.     ['{0002E16C-0000-0000-C000-000000000046}']
  512.     function Get_VBE: VBE; safecall;
  513.     function Get_Parent: Window_; safecall;
  514.     function Item(index: OleVariant): Window_; safecall;
  515.     function Get_Count: Integer; safecall;
  516.     function _NewEnum: IUnknown; safecall;
  517.     procedure Remove(const Window_: Window_); safecall;
  518.     procedure Add(const Window_: Window_); safecall;
  519.     property VBE: VBE read Get_VBE;
  520.     property Parent: Window_ read Get_Parent;
  521.     property Count: Integer read Get_Count;
  522.   end;
  523.  
  524. // *********************************************************************//
  525. // DispIntf:  _LinkedWindowsDisp
  526. // Flags:     (4416) Dual OleAutomation Dispatchable
  527. // GUID:      {0002E16C-0000-0000-C000-000000000046}
  528. // *********************************************************************//
  529.   _LinkedWindowsDisp = dispinterface
  530.     ['{0002E16C-0000-0000-C000-000000000046}']
  531.     property VBE: VBE readonly dispid 1;
  532.     property Parent: Window_ readonly dispid 2;
  533.     function Item(index: OleVariant): Window_; dispid 0;
  534.     property Count: Integer readonly dispid 201;
  535.     function _NewEnum: IUnknown; dispid -4;
  536.     procedure Remove(const Window_: Window_); dispid 202;
  537.     procedure Add(const Window_: Window_); dispid 203;
  538.   end;
  539.  
  540. // *********************************************************************//
  541. // Interface: Events
  542. // Flags:     (4416) Dual OleAutomation Dispatchable
  543. // GUID:      {0002E167-0000-0000-C000-000000000046}
  544. // *********************************************************************//
  545.   Events = interface(IDispatch)
  546.     ['{0002E167-0000-0000-C000-000000000046}']
  547.     function Get_ReferencesEvents(const VBProject: VBProject): ReferencesEvents; safecall;
  548.     function Get_CommandBarEvents(const CommandBarControl: IDispatch): CommandBarEvents; safecall;
  549.     property ReferencesEvents[const VBProject: VBProject]: ReferencesEvents read Get_ReferencesEvents;
  550.     property CommandBarEvents[const CommandBarControl: IDispatch]: CommandBarEvents read Get_CommandBarEvents;
  551.   end;
  552.  
  553. // *********************************************************************//
  554. // DispIntf:  EventsDisp
  555. // Flags:     (4416) Dual OleAutomation Dispatchable
  556. // GUID:      {0002E167-0000-0000-C000-000000000046}
  557. // *********************************************************************//
  558.   EventsDisp = dispinterface
  559.     ['{0002E167-0000-0000-C000-000000000046}']
  560.     property ReferencesEvents[const VBProject: VBProject]: ReferencesEvents readonly dispid 202;
  561.     property CommandBarEvents[const CommandBarControl: IDispatch]: CommandBarEvents readonly dispid 205;
  562.   end;
  563.  
  564. // *********************************************************************//
  565. // Interface: _VBProjectsEvents
  566. // Flags:     (256) OleAutomation
  567. // GUID:      {0002E113-0000-0000-C000-000000000046}
  568. // *********************************************************************//
  569.   _VBProjectsEvents = interface(IUnknown)
  570.     ['{0002E113-0000-0000-C000-000000000046}']
  571.   end;
  572.  
  573. // *********************************************************************//
  574. // DispIntf:  _dispVBProjectsEvents
  575. // Flags:     (4096) Dispatchable
  576. // GUID:      {0002E103-0000-0000-C000-000000000046}
  577. // *********************************************************************//
  578.   _dispVBProjectsEvents = dispinterface
  579.     ['{0002E103-0000-0000-C000-000000000046}']
  580.     procedure ItemAdded(const VBProject: VBProject); dispid 1;
  581.     procedure ItemRemoved(const VBProject: VBProject); dispid 2;
  582.     procedure ItemRenamed(const VBProject: VBProject; const OldName: WideString); dispid 3;
  583.     procedure ItemActivated(const VBProject: VBProject); dispid 4;
  584.   end;
  585.  
  586. // *********************************************************************//
  587. // Interface: _VBComponentsEvents
  588. // Flags:     (256) OleAutomation
  589. // GUID:      {0002E115-0000-0000-C000-000000000046}
  590. // *********************************************************************//
  591.   _VBComponentsEvents = interface(IUnknown)
  592.     ['{0002E115-0000-0000-C000-000000000046}']
  593.   end;
  594.  
  595. // *********************************************************************//
  596. // DispIntf:  _dispVBComponentsEvents
  597. // Flags:     (4096) Dispatchable
  598. // GUID:      {0002E116-0000-0000-C000-000000000046}
  599. // *********************************************************************//
  600.   _dispVBComponentsEvents = dispinterface
  601.     ['{0002E116-0000-0000-C000-000000000046}']
  602.     procedure ItemAdded(const VBComponent: VBComponent); dispid 1;
  603.     procedure ItemRemoved(const VBComponent: VBComponent); dispid 2;
  604.     procedure ItemRenamed(const VBComponent: VBComponent; const OldName: WideString); dispid 3;
  605.     procedure ItemSelected(const VBComponent: VBComponent); dispid 4;
  606.     procedure ItemActivated(const VBComponent: VBComponent); dispid 5;
  607.     procedure ItemReloaded(const VBComponent: VBComponent); dispid 6;
  608.   end;
  609.  
  610. // *********************************************************************//
  611. // Interface: _ReferencesEvents
  612. // Flags:     (256) OleAutomation
  613. // GUID:      {0002E11A-0000-0000-C000-000000000046}
  614. // *********************************************************************//
  615.   _ReferencesEvents = interface(IUnknown)
  616.     ['{0002E11A-0000-0000-C000-000000000046}']
  617.   end;
  618.  
  619. // *********************************************************************//
  620. // DispIntf:  _dispReferencesEvents
  621. // Flags:     (4096) Dispatchable
  622. // GUID:      {0002E118-0000-0000-C000-000000000046}
  623. // *********************************************************************//
  624.   _dispReferencesEvents = dispinterface
  625.     ['{0002E118-0000-0000-C000-000000000046}']
  626.     procedure ItemAdded(const Reference: Reference); dispid 1;
  627.     procedure ItemRemoved(const Reference: Reference); dispid 2;
  628.   end;
  629.  
  630. // *********************************************************************//
  631. // Interface: _CommandBarControlEvents
  632. // Flags:     (256) OleAutomation
  633. // GUID:      {0002E130-0000-0000-C000-000000000046}
  634. // *********************************************************************//
  635.   _CommandBarControlEvents = interface(IUnknown)
  636.     ['{0002E130-0000-0000-C000-000000000046}']
  637.   end;
  638.  
  639. // *********************************************************************//
  640. // DispIntf:  _dispCommandBarControlEvents
  641. // Flags:     (4096) Dispatchable
  642. // GUID:      {0002E131-0000-0000-C000-000000000046}
  643. // *********************************************************************//
  644.   _dispCommandBarControlEvents = dispinterface
  645.     ['{0002E131-0000-0000-C000-000000000046}']
  646.     procedure Click(const CommandBarControl: IDispatch; var handled: WordBool; 
  647.                     var CancelDefault: WordBool); dispid 1;
  648.   end;
  649.  
  650. // *********************************************************************//
  651. // Interface: _ProjectTemplate
  652. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  653. // GUID:      {0002E159-0000-0000-C000-000000000046}
  654. // *********************************************************************//
  655.   _ProjectTemplate = interface(IDispatch)
  656.     ['{0002E159-0000-0000-C000-000000000046}']
  657.     function Get_Application_: Application_; safecall;
  658.     function Get_Parent: Application_; safecall;
  659.     property Application_: Application_ read Get_Application_;
  660.     property Parent: Application_ read Get_Parent;
  661.   end;
  662.  
  663. // *********************************************************************//
  664. // DispIntf:  _ProjectTemplateDisp
  665. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  666. // GUID:      {0002E159-0000-0000-C000-000000000046}
  667. // *********************************************************************//
  668.   _ProjectTemplateDisp = dispinterface
  669.     ['{0002E159-0000-0000-C000-000000000046}']
  670.     property Application_: Application_ readonly dispid 1;
  671.     property Parent: Application_ readonly dispid 2;
  672.   end;
  673.  
  674. // *********************************************************************//
  675. // Interface: _VBProject_Old
  676. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  677. // GUID:      {0002E160-0000-0000-C000-000000000046}
  678. // *********************************************************************//
  679.   _VBProject_Old = interface(_ProjectTemplate)
  680.     ['{0002E160-0000-0000-C000-000000000046}']
  681.     function Get_HelpFile: WideString; safecall;
  682.     procedure Set_HelpFile(const lpbstrHelpFile: WideString); safecall;
  683.     function Get_HelpContextID: Integer; safecall;
  684.     procedure Set_HelpContextID(lpdwContextID: Integer); safecall;
  685.     function Get_Description: WideString; safecall;
  686.     procedure Set_Description(const lpbstrDescription: WideString); safecall;
  687.     function Get_Mode: vbext_VBAMode; safecall;
  688.     function Get_References: References; safecall;
  689.     function Get_Name: WideString; safecall;
  690.     procedure Set_Name(const lpbstrName: WideString); safecall;
  691.     function Get_VBE: VBE; safecall;
  692.     function Get_Collection: VBProjects; safecall;
  693.     function Get_Protection: vbext_ProjectProtection; safecall;
  694.     function Get_Saved: WordBool; safecall;
  695.     function Get_VBComponents: VBComponents; safecall;
  696.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  697.     property HelpContextID: Integer read Get_HelpContextID write Set_HelpContextID;
  698.     property Description: WideString read Get_Description write Set_Description;
  699.     property Mode: vbext_VBAMode read Get_Mode;
  700.     property References: References read Get_References;
  701.     property Name: WideString read Get_Name write Set_Name;
  702.     property VBE: VBE read Get_VBE;
  703.     property Collection: VBProjects read Get_Collection;
  704.     property Protection: vbext_ProjectProtection read Get_Protection;
  705.     property Saved: WordBool read Get_Saved;
  706.     property VBComponents: VBComponents read Get_VBComponents;
  707.   end;
  708.  
  709. // *********************************************************************//
  710. // DispIntf:  _VBProject_OldDisp
  711. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  712. // GUID:      {0002E160-0000-0000-C000-000000000046}
  713. // *********************************************************************//
  714.   _VBProject_OldDisp = dispinterface
  715.     ['{0002E160-0000-0000-C000-000000000046}']
  716.     property HelpFile: WideString dispid 116;
  717.     property HelpContextID: Integer dispid 117;
  718.     property Description: WideString dispid 118;
  719.     property Mode: vbext_VBAMode readonly dispid 119;
  720.     property References: References readonly dispid 120;
  721.     property Name: WideString dispid 121;
  722.     property VBE: VBE readonly dispid 122;
  723.     property Collection: VBProjects readonly dispid 123;
  724.     property Protection: vbext_ProjectProtection readonly dispid 131;
  725.     property Saved: WordBool readonly dispid 133;
  726.     property VBComponents: VBComponents readonly dispid 135;
  727.     property Application_: Application_ readonly dispid 1;
  728.     property Parent: Application_ readonly dispid 2;
  729.   end;
  730.  
  731. // *********************************************************************//
  732. // Interface: _VBProject
  733. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  734. // GUID:      {EEE00915-E393-11D1-BB03-00C04FB6C4A6}
  735. // *********************************************************************//
  736.   _VBProject = interface(_VBProject_Old)
  737.     ['{EEE00915-E393-11D1-BB03-00C04FB6C4A6}']
  738.     procedure SaveAs(const FileName: WideString); safecall;
  739.     procedure MakeCompiledFile; safecall;
  740.     function Get_Type_: vbext_ProjectType; safecall;
  741.     function Get_FileName: WideString; safecall;
  742.     function Get_BuildFileName: WideString; safecall;
  743.     procedure Set_BuildFileName(const lpbstrBldFName: WideString); safecall;
  744.     property Type_: vbext_ProjectType read Get_Type_;
  745.     property FileName: WideString read Get_FileName;
  746.     property BuildFileName: WideString read Get_BuildFileName write Set_BuildFileName;
  747.   end;
  748.  
  749. // *********************************************************************//
  750. // DispIntf:  _VBProjectDisp
  751. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  752. // GUID:      {EEE00915-E393-11D1-BB03-00C04FB6C4A6}
  753. // *********************************************************************//
  754.   _VBProjectDisp = dispinterface
  755.     ['{EEE00915-E393-11D1-BB03-00C04FB6C4A6}']
  756.     procedure SaveAs(const FileName: WideString); dispid 138;
  757.     procedure MakeCompiledFile; dispid 139;
  758.     property Type_: vbext_ProjectType readonly dispid 140;
  759.     property FileName: WideString readonly dispid 141;
  760.     property BuildFileName: WideString dispid 142;
  761.     property HelpFile: WideString dispid 116;
  762.     property HelpContextID: Integer dispid 117;
  763.     property Description: WideString dispid 118;
  764.     property Mode: vbext_VBAMode readonly dispid 119;
  765.     property References: References readonly dispid 120;
  766.     property Name: WideString dispid 121;
  767.     property VBE: VBE readonly dispid 122;
  768.     property Collection: VBProjects readonly dispid 123;
  769.     property Protection: vbext_ProjectProtection readonly dispid 131;
  770.     property Saved: WordBool readonly dispid 133;
  771.     property VBComponents: VBComponents readonly dispid 135;
  772.     property Application_: Application_ readonly dispid 1;
  773.     property Parent: Application_ readonly dispid 2;
  774.   end;
  775.  
  776. // *********************************************************************//
  777. // Interface: _VBProjects_Old
  778. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  779. // GUID:      {0002E165-0000-0000-C000-000000000046}
  780. // *********************************************************************//
  781.   _VBProjects_Old = interface(IDispatch)
  782.     ['{0002E165-0000-0000-C000-000000000046}']
  783.     function Item(index: OleVariant): VBProject; safecall;
  784.     function Get_VBE: VBE; safecall;
  785.     function Get_Parent: VBE; safecall;
  786.     function Get_Count: Integer; safecall;
  787.     function _NewEnum: IUnknown; safecall;
  788.     property VBE: VBE read Get_VBE;
  789.     property Parent: VBE read Get_Parent;
  790.     property Count: Integer read Get_Count;
  791.   end;
  792.  
  793. // *********************************************************************//
  794. // DispIntf:  _VBProjects_OldDisp
  795. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  796. // GUID:      {0002E165-0000-0000-C000-000000000046}
  797. // *********************************************************************//
  798.   _VBProjects_OldDisp = dispinterface
  799.     ['{0002E165-0000-0000-C000-000000000046}']
  800.     function Item(index: OleVariant): VBProject; dispid 0;
  801.     property VBE: VBE readonly dispid 20;
  802.     property Parent: VBE readonly dispid 2;
  803.     property Count: Integer readonly dispid 10;
  804.     function _NewEnum: IUnknown; dispid -4;
  805.   end;
  806.  
  807. // *********************************************************************//
  808. // Interface: _VBProjects
  809. // Flags:     (4416) Dual OleAutomation Dispatchable
  810. // GUID:      {EEE00919-E393-11D1-BB03-00C04FB6C4A6}
  811. // *********************************************************************//
  812.   _VBProjects = interface(_VBProjects_Old)
  813.     ['{EEE00919-E393-11D1-BB03-00C04FB6C4A6}']
  814.     function Add(Type_: vbext_ProjectType): VBProject; safecall;
  815.     procedure Remove(const lpc: VBProject); safecall;
  816.   end;
  817.  
  818. // *********************************************************************//
  819. // DispIntf:  _VBProjectsDisp
  820. // Flags:     (4416) Dual OleAutomation Dispatchable
  821. // GUID:      {EEE00919-E393-11D1-BB03-00C04FB6C4A6}
  822. // *********************************************************************//
  823.   _VBProjectsDisp = dispinterface
  824.     ['{EEE00919-E393-11D1-BB03-00C04FB6C4A6}']
  825.     function Add(Type_: vbext_ProjectType): VBProject; dispid 137;
  826.     procedure Remove(const lpc: VBProject); dispid 138;
  827.     function Item(index: OleVariant): VBProject; dispid 0;
  828.     property VBE: VBE readonly dispid 20;
  829.     property Parent: VBE readonly dispid 2;
  830.     property Count: Integer readonly dispid 10;
  831.     function _NewEnum: IUnknown; dispid -4;
  832.   end;
  833.  
  834. // *********************************************************************//
  835. // Interface: SelectedComponents
  836. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  837. // GUID:      {BE39F3D4-1B13-11D0-887F-00A0C90F2744}
  838. // *********************************************************************//
  839.   SelectedComponents = interface(IDispatch)
  840.     ['{BE39F3D4-1B13-11D0-887F-00A0C90F2744}']
  841.     function Item(index: SYSINT): Component; safecall;
  842.     function Get_Application_: Application_; safecall;
  843.     function Get_Parent: VBProject; safecall;
  844.     function Get_Count: Integer; safecall;
  845.     function _NewEnum: IUnknown; safecall;
  846.     property Application_: Application_ read Get_Application_;
  847.     property Parent: VBProject read Get_Parent;
  848.     property Count: Integer read Get_Count;
  849.   end;
  850.  
  851. // *********************************************************************//
  852. // DispIntf:  SelectedComponentsDisp
  853. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  854. // GUID:      {BE39F3D4-1B13-11D0-887F-00A0C90F2744}
  855. // *********************************************************************//
  856.   SelectedComponentsDisp = dispinterface
  857.     ['{BE39F3D4-1B13-11D0-887F-00A0C90F2744}']
  858.     function Item(index: SYSINT): Component; dispid 0;
  859.     property Application_: Application_ readonly dispid 1;
  860.     property Parent: VBProject readonly dispid 2;
  861.     property Count: Integer readonly dispid 10;
  862.     function _NewEnum: IUnknown; dispid -4;
  863.   end;
  864.  
  865. // *********************************************************************//
  866. // Interface: _Components
  867. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  868. // GUID:      {0002E161-0000-0000-C000-000000000046}
  869. // *********************************************************************//
  870.   _Components = interface(IDispatch)
  871.     ['{0002E161-0000-0000-C000-000000000046}']
  872.     function Item(index: OleVariant): Component; safecall;
  873.     function Get_Application_: Application_; safecall;
  874.     function Get_Parent: VBProject; safecall;
  875.     function Get_Count: Integer; safecall;
  876.     function _NewEnum: IUnknown; safecall;
  877.     procedure Remove(const Component: Component); safecall;
  878.     function Add(ComponentType: vbext_ComponentType): Component; safecall;
  879.     function Import(const FileName: WideString): Component; safecall;
  880.     function Get_VBE: VBE; safecall;
  881.     property Application_: Application_ read Get_Application_;
  882.     property Parent: VBProject read Get_Parent;
  883.     property Count: Integer read Get_Count;
  884.     property VBE: VBE read Get_VBE;
  885.   end;
  886.  
  887. // *********************************************************************//
  888. // DispIntf:  _ComponentsDisp
  889. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  890. // GUID:      {0002E161-0000-0000-C000-000000000046}
  891. // *********************************************************************//
  892.   _ComponentsDisp = dispinterface
  893.     ['{0002E161-0000-0000-C000-000000000046}']
  894.     function Item(index: OleVariant): Component; dispid 0;
  895.     property Application_: Application_ readonly dispid 1;
  896.     property Parent: VBProject readonly dispid 2;
  897.     property Count: Integer readonly dispid 10;
  898.     function _NewEnum: IUnknown; dispid -4;
  899.     procedure Remove(const Component: Component); dispid 11;
  900.     function Add(ComponentType: vbext_ComponentType): Component; dispid 12;
  901.     function Import(const FileName: WideString): Component; dispid 13;
  902.     property VBE: VBE readonly dispid 20;
  903.   end;
  904.  
  905. // *********************************************************************//
  906. // Interface: _VBComponents_Old
  907. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  908. // GUID:      {0002E162-0000-0000-C000-000000000046}
  909. // *********************************************************************//
  910.   _VBComponents_Old = interface(IDispatch)
  911.     ['{0002E162-0000-0000-C000-000000000046}']
  912.     function Item(index: OleVariant): VBComponent; safecall;
  913.     function Get_Parent: VBProject; safecall;
  914.     function Get_Count: Integer; safecall;
  915.     function _NewEnum: IUnknown; safecall;
  916.     procedure Remove(const VBComponent: VBComponent); safecall;
  917.     function Add(ComponentType: vbext_ComponentType): VBComponent; safecall;
  918.     function Import(const FileName: WideString): VBComponent; safecall;
  919.     function Get_VBE: VBE; safecall;
  920.     property Parent: VBProject read Get_Parent;
  921.     property Count: Integer read Get_Count;
  922.     property VBE: VBE read Get_VBE;
  923.   end;
  924.  
  925. // *********************************************************************//
  926. // DispIntf:  _VBComponents_OldDisp
  927. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  928. // GUID:      {0002E162-0000-0000-C000-000000000046}
  929. // *********************************************************************//
  930.   _VBComponents_OldDisp = dispinterface
  931.     ['{0002E162-0000-0000-C000-000000000046}']
  932.     function Item(index: OleVariant): VBComponent; dispid 0;
  933.     property Parent: VBProject readonly dispid 2;
  934.     property Count: Integer readonly dispid 10;
  935.     function _NewEnum: IUnknown; dispid -4;
  936.     procedure Remove(const VBComponent: VBComponent); dispid 11;
  937.     function Add(ComponentType: vbext_ComponentType): VBComponent; dispid 12;
  938.     function Import(const FileName: WideString): VBComponent; dispid 13;
  939.     property VBE: VBE readonly dispid 20;
  940.   end;
  941.  
  942. // *********************************************************************//
  943. // Interface: _VBComponents
  944. // Flags:     (4416) Dual OleAutomation Dispatchable
  945. // GUID:      {EEE0091C-E393-11D1-BB03-00C04FB6C4A6}
  946. // *********************************************************************//
  947.   _VBComponents = interface(_VBComponents_Old)
  948.     ['{EEE0091C-E393-11D1-BB03-00C04FB6C4A6}']
  949.     function AddCustom(const ProgId: WideString): VBComponent; safecall;
  950.   end;
  951.  
  952. // *********************************************************************//
  953. // DispIntf:  _VBComponentsDisp
  954. // Flags:     (4416) Dual OleAutomation Dispatchable
  955. // GUID:      {EEE0091C-E393-11D1-BB03-00C04FB6C4A6}
  956. // *********************************************************************//
  957.   _VBComponentsDisp = dispinterface
  958.     ['{EEE0091C-E393-11D1-BB03-00C04FB6C4A6}']
  959.     function AddCustom(const ProgId: WideString): VBComponent; dispid 25;
  960.     function Item(index: OleVariant): VBComponent; dispid 0;
  961.     property Parent: VBProject readonly dispid 2;
  962.     property Count: Integer readonly dispid 10;
  963.     function _NewEnum: IUnknown; dispid -4;
  964.     procedure Remove(const VBComponent: VBComponent); dispid 11;
  965.     function Add(ComponentType: vbext_ComponentType): VBComponent; dispid 12;
  966.     function Import(const FileName: WideString): VBComponent; dispid 13;
  967.     property VBE: VBE readonly dispid 20;
  968.   end;
  969.  
  970. // *********************************************************************//
  971. // Interface: _Component
  972. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  973. // GUID:      {0002E163-0000-0000-C000-000000000046}
  974. // *********************************************************************//
  975.   _Component = interface(IDispatch)
  976.     ['{0002E163-0000-0000-C000-000000000046}']
  977.     function Get_Application_: Application_; safecall;
  978.     function Get_Parent: Components; safecall;
  979.     function Get_IsDirty: WordBool; safecall;
  980.     procedure Set_IsDirty(lpfReturn: WordBool); safecall;
  981.     function Get_Name: WideString; safecall;
  982.     procedure Set_Name(const pbstrReturn: WideString); safecall;
  983.     property Application_: Application_ read Get_Application_;
  984.     property Parent: Components read Get_Parent;
  985.     property IsDirty: WordBool read Get_IsDirty write Set_IsDirty;
  986.     property Name: WideString read Get_Name write Set_Name;
  987.   end;
  988.  
  989. // *********************************************************************//
  990. // DispIntf:  _ComponentDisp
  991. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  992. // GUID:      {0002E163-0000-0000-C000-000000000046}
  993. // *********************************************************************//
  994.   _ComponentDisp = dispinterface
  995.     ['{0002E163-0000-0000-C000-000000000046}']
  996.     property Application_: Application_ readonly dispid 1;
  997.     property Parent: Components readonly dispid 2;
  998.     property IsDirty: WordBool dispid 10;
  999.     property Name: WideString dispid 48;
  1000.   end;
  1001.  
  1002. // *********************************************************************//
  1003. // Interface: _VBComponent_Old
  1004. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1005. // GUID:      {0002E164-0000-0000-C000-000000000046}
  1006. // *********************************************************************//
  1007.   _VBComponent_Old = interface(IDispatch)
  1008.     ['{0002E164-0000-0000-C000-000000000046}']
  1009.     function Get_Saved: WordBool; safecall;
  1010.     function Get_Name: WideString; safecall;
  1011.     procedure Set_Name(const pbstrReturn: WideString); safecall;
  1012.     function Get_Designer: IDispatch; safecall;
  1013.     function Get_CodeModule: CodeModule; safecall;
  1014.     function Get_Type_: vbext_ComponentType; safecall;
  1015.     procedure Export(const FileName: WideString); safecall;
  1016.     function Get_VBE: VBE; safecall;
  1017.     function Get_Collection: VBComponents; safecall;
  1018.     function Get_HasOpenDesigner: WordBool; safecall;
  1019.     function Get_Properties: Properties; safecall;
  1020.     function DesignerWindow: Window_; safecall;
  1021.     procedure Activate; safecall;
  1022.     property Saved: WordBool read Get_Saved;
  1023.     property Name: WideString read Get_Name write Set_Name;
  1024.     property Designer: IDispatch read Get_Designer;
  1025.     property CodeModule: CodeModule read Get_CodeModule;
  1026.     property Type_: vbext_ComponentType read Get_Type_;
  1027.     property VBE: VBE read Get_VBE;
  1028.     property Collection: VBComponents read Get_Collection;
  1029.     property HasOpenDesigner: WordBool read Get_HasOpenDesigner;
  1030.     property Properties: Properties read Get_Properties;
  1031.   end;
  1032.  
  1033. // *********************************************************************//
  1034. // DispIntf:  _VBComponent_OldDisp
  1035. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1036. // GUID:      {0002E164-0000-0000-C000-000000000046}
  1037. // *********************************************************************//
  1038.   _VBComponent_OldDisp = dispinterface
  1039.     ['{0002E164-0000-0000-C000-000000000046}']
  1040.     property Saved: WordBool readonly dispid 10;
  1041.     property Name: WideString dispid 48;
  1042.     property Designer: IDispatch readonly dispid 49;
  1043.     property CodeModule: CodeModule readonly dispid 50;
  1044.     property Type_: vbext_ComponentType readonly dispid 51;
  1045.     procedure Export(const FileName: WideString); dispid 52;
  1046.     property VBE: VBE readonly dispid 53;
  1047.     property Collection: VBComponents readonly dispid 54;
  1048.     property HasOpenDesigner: WordBool readonly dispid 55;
  1049.     property Properties: Properties readonly dispid 56;
  1050.     function DesignerWindow: Window_; dispid 57;
  1051.     procedure Activate; dispid 60;
  1052.   end;
  1053.  
  1054. // *********************************************************************//
  1055. // Interface: _VBComponent
  1056. // Flags:     (4416) Dual OleAutomation Dispatchable
  1057. // GUID:      {EEE00921-E393-11D1-BB03-00C04FB6C4A6}
  1058. // *********************************************************************//
  1059.   _VBComponent = interface(_VBComponent_Old)
  1060.     ['{EEE00921-E393-11D1-BB03-00C04FB6C4A6}']
  1061.     function Get_DesignerID: WideString; safecall;
  1062.     property DesignerID: WideString read Get_DesignerID;
  1063.   end;
  1064.  
  1065. // *********************************************************************//
  1066. // DispIntf:  _VBComponentDisp
  1067. // Flags:     (4416) Dual OleAutomation Dispatchable
  1068. // GUID:      {EEE00921-E393-11D1-BB03-00C04FB6C4A6}
  1069. // *********************************************************************//
  1070.   _VBComponentDisp = dispinterface
  1071.     ['{EEE00921-E393-11D1-BB03-00C04FB6C4A6}']
  1072.     property DesignerID: WideString readonly dispid 64;
  1073.     property Saved: WordBool readonly dispid 10;
  1074.     property Name: WideString dispid 48;
  1075.     property Designer: IDispatch readonly dispid 49;
  1076.     property CodeModule: CodeModule readonly dispid 50;
  1077.     property Type_: vbext_ComponentType readonly dispid 51;
  1078.     procedure Export(const FileName: WideString); dispid 52;
  1079.     property VBE: VBE readonly dispid 53;
  1080.     property Collection: VBComponents readonly dispid 54;
  1081.     property HasOpenDesigner: WordBool readonly dispid 55;
  1082.     property Properties: Properties readonly dispid 56;
  1083.     function DesignerWindow: Window_; dispid 57;
  1084.     procedure Activate; dispid 60;
  1085.   end;
  1086.  
  1087. // *********************************************************************//
  1088. // Interface: Property_
  1089. // Flags:     (4416) Dual OleAutomation Dispatchable
  1090. // GUID:      {0002E18C-0000-0000-C000-000000000046}
  1091. // *********************************************************************//
  1092.   Property_ = interface(IDispatch)
  1093.     ['{0002E18C-0000-0000-C000-000000000046}']
  1094.     function Get_Value: OleVariant; safecall;
  1095.     procedure Set_Value(lppvReturn: OleVariant); safecall;
  1096.     function Get_IndexedValue(Index1: OleVariant; Index2: OleVariant; Index3: OleVariant; 
  1097.                               Index4: OleVariant): OleVariant; safecall;
  1098.     procedure Set_IndexedValue(Index1: OleVariant; Index2: OleVariant; Index3: OleVariant; 
  1099.                                Index4: OleVariant; lppvReturn: OleVariant); safecall;
  1100.     function Get_NumIndices: Smallint; safecall;
  1101.     function Get_Application_: Application_; safecall;
  1102.     function Get_Parent: Properties; safecall;
  1103.     function Get_Name: WideString; safecall;
  1104.     function Get_VBE: VBE; safecall;
  1105.     function Get_Collection: Properties; safecall;
  1106.     function Get_Object_: IUnknown; safecall;
  1107.     procedure Set_Object_(const lppunk: IUnknown); safecall;
  1108.     property Value: OleVariant read Get_Value write Set_Value;
  1109.     property IndexedValue[Index1: OleVariant; Index2: OleVariant; Index3: OleVariant; 
  1110.                           Index4: OleVariant]: OleVariant read Get_IndexedValue write Set_IndexedValue;
  1111.     property NumIndices: Smallint read Get_NumIndices;
  1112.     property Application_: Application_ read Get_Application_;
  1113.     property Parent: Properties read Get_Parent;
  1114.     property Name: WideString read Get_Name;
  1115.     property VBE: VBE read Get_VBE;
  1116.     property Collection: Properties read Get_Collection;
  1117.     property Object_: IUnknown read Get_Object_ write Set_Object_;
  1118.   end;
  1119.  
  1120. // *********************************************************************//
  1121. // DispIntf:  Property_Disp
  1122. // Flags:     (4416) Dual OleAutomation Dispatchable
  1123. // GUID:      {0002E18C-0000-0000-C000-000000000046}
  1124. // *********************************************************************//
  1125.   Property_Disp = dispinterface
  1126.     ['{0002E18C-0000-0000-C000-000000000046}']
  1127.     property Value: OleVariant dispid 0;
  1128.     property IndexedValue[Index1: OleVariant; Index2: OleVariant; Index3: OleVariant; 
  1129.                           Index4: OleVariant]: OleVariant dispid 3;
  1130.     property NumIndices: Smallint readonly dispid 4;
  1131.     property Application_: Application_ readonly dispid 1;
  1132.     property Parent: Properties readonly dispid 2;
  1133.     property Name: WideString readonly dispid 40;
  1134.     property VBE: VBE readonly dispid 41;
  1135.     property Collection: Properties readonly dispid 42;
  1136.     property Object_: IUnknown dispid 45;
  1137.   end;
  1138.  
  1139. // *********************************************************************//
  1140. // Interface: _Properties
  1141. // Flags:     (4416) Dual OleAutomation Dispatchable
  1142. // GUID:      {0002E188-0000-0000-C000-000000000046}
  1143. // *********************************************************************//
  1144.   _Properties = interface(IDispatch)
  1145.     ['{0002E188-0000-0000-C000-000000000046}']
  1146.     function Item(index: OleVariant): Property_; safecall;
  1147.     function Get_Application_: Application_; safecall;
  1148.     function Get_Parent: IDispatch; safecall;
  1149.     function Get_Count: Integer; safecall;
  1150.     function _NewEnum: IUnknown; safecall;
  1151.     function Get_VBE: VBE; safecall;
  1152.     property Application_: Application_ read Get_Application_;
  1153.     property Parent: IDispatch read Get_Parent;
  1154.     property Count: Integer read Get_Count;
  1155.     property VBE: VBE read Get_VBE;
  1156.   end;
  1157.  
  1158. // *********************************************************************//
  1159. // DispIntf:  _PropertiesDisp
  1160. // Flags:     (4416) Dual OleAutomation Dispatchable
  1161. // GUID:      {0002E188-0000-0000-C000-000000000046}
  1162. // *********************************************************************//
  1163.   _PropertiesDisp = dispinterface
  1164.     ['{0002E188-0000-0000-C000-000000000046}']
  1165.     function Item(index: OleVariant): Property_; dispid 0;
  1166.     property Application_: Application_ readonly dispid 1;
  1167.     property Parent: IDispatch readonly dispid 2;
  1168.     property Count: Integer readonly dispid 40;
  1169.     function _NewEnum: IUnknown; dispid -4;
  1170.     property VBE: VBE readonly dispid 10;
  1171.   end;
  1172.  
  1173. // *********************************************************************//
  1174. // Interface: _AddIns
  1175. // Flags:     (4416) Dual OleAutomation Dispatchable
  1176. // GUID:      {DA936B62-AC8B-11D1-B6E5-00A0C90F2744}
  1177. // *********************************************************************//
  1178.   _AddIns = interface(IDispatch)
  1179.     ['{DA936B62-AC8B-11D1-B6E5-00A0C90F2744}']
  1180.     function Item(index: OleVariant): AddIn; safecall;
  1181.     function Get_VBE: VBE; safecall;
  1182.     function Get_Parent: IDispatch; safecall;
  1183.     function Get_Count: Integer; safecall;
  1184.     function _NewEnum: IUnknown; safecall;
  1185.     procedure Update; safecall;
  1186.     property VBE: VBE read Get_VBE;
  1187.     property Parent: IDispatch read Get_Parent;
  1188.     property Count: Integer read Get_Count;
  1189.   end;
  1190.  
  1191. // *********************************************************************//
  1192. // DispIntf:  _AddInsDisp
  1193. // Flags:     (4416) Dual OleAutomation Dispatchable
  1194. // GUID:      {DA936B62-AC8B-11D1-B6E5-00A0C90F2744}
  1195. // *********************************************************************//
  1196.   _AddInsDisp = dispinterface
  1197.     ['{DA936B62-AC8B-11D1-B6E5-00A0C90F2744}']
  1198.     function Item(index: OleVariant): AddIn; dispid 0;
  1199.     property VBE: VBE readonly dispid 1;
  1200.     property Parent: IDispatch readonly dispid 2;
  1201.     property Count: Integer readonly dispid 40;
  1202.     function _NewEnum: IUnknown; dispid -4;
  1203.     procedure Update; dispid 41;
  1204.   end;
  1205.  
  1206. // *********************************************************************//
  1207. // Interface: AddIn
  1208. // Flags:     (4416) Dual OleAutomation Dispatchable
  1209. // GUID:      {DA936B64-AC8B-11D1-B6E5-00A0C90F2744}
  1210. // *********************************************************************//
  1211.   AddIn = interface(IDispatch)
  1212.     ['{DA936B64-AC8B-11D1-B6E5-00A0C90F2744}']
  1213.     function Get_Description: WideString; safecall;
  1214.     procedure Set_Description(const lpbstr: WideString); safecall;
  1215.     function Get_VBE: VBE; safecall;
  1216.     function Get_Collection: Addins; safecall;
  1217.     function Get_ProgId: WideString; safecall;
  1218.     function Get_Guid: WideString; safecall;
  1219.     function Get_Connect: WordBool; safecall;
  1220.     procedure Set_Connect(lpfConnect: WordBool); safecall;
  1221.     function Get_Object_: IDispatch; safecall;
  1222.     procedure Set_Object_(const lppdisp: IDispatch); safecall;
  1223.     property Description: WideString read Get_Description write Set_Description;
  1224.     property VBE: VBE read Get_VBE;
  1225.     property Collection: Addins read Get_Collection;
  1226.     property ProgId: WideString read Get_ProgId;
  1227.     property Guid: WideString read Get_Guid;
  1228.     property Connect: WordBool read Get_Connect write Set_Connect;
  1229.     property Object_: IDispatch read Get_Object_ write Set_Object_;
  1230.   end;
  1231.  
  1232. // *********************************************************************//
  1233. // DispIntf:  AddInDisp
  1234. // Flags:     (4416) Dual OleAutomation Dispatchable
  1235. // GUID:      {DA936B64-AC8B-11D1-B6E5-00A0C90F2744}
  1236. // *********************************************************************//
  1237.   AddInDisp = dispinterface
  1238.     ['{DA936B64-AC8B-11D1-B6E5-00A0C90F2744}']
  1239.     property Description: WideString dispid 0;
  1240.     property VBE: VBE readonly dispid 1;
  1241.     property Collection: Addins readonly dispid 2;
  1242.     property ProgId: WideString readonly dispid 3;
  1243.     property Guid: WideString readonly dispid 4;
  1244.     property Connect: WordBool dispid 6;
  1245.     property Object_: IDispatch dispid 7;
  1246.   end;
  1247.  
  1248. // *********************************************************************//
  1249. // Interface: _CodeModule
  1250. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1251. // GUID:      {0002E16E-0000-0000-C000-000000000046}
  1252. // *********************************************************************//
  1253.   _CodeModule = interface(IDispatch)
  1254.     ['{0002E16E-0000-0000-C000-000000000046}']
  1255.     function Get_Parent: VBComponent; safecall;
  1256.     function Get_VBE: VBE; safecall;
  1257.     function Get_Name: WideString; safecall;
  1258.     procedure Set_Name(const pbstrName: WideString); safecall;
  1259.     procedure AddFromString(const String_: WideString); safecall;
  1260.     procedure AddFromFile(const FileName: WideString); safecall;
  1261.     function Get_Lines(StartLine: Integer; Count: Integer): WideString; safecall;
  1262.     function Get_CountOfLines: Integer; safecall;
  1263.     procedure InsertLines(Line: Integer; const String_: WideString); safecall;
  1264.     procedure DeleteLines(StartLine: Integer; Count: Integer); safecall;
  1265.     procedure ReplaceLine(Line: Integer; const String_: WideString); safecall;
  1266.     function Get_ProcStartLine(const ProcName: WideString; ProcKind: vbext_ProcKind): Integer; safecall;
  1267.     function Get_ProcCountLines(const ProcName: WideString; ProcKind: vbext_ProcKind): Integer; safecall;
  1268.     function Get_ProcBodyLine(const ProcName: WideString; ProcKind: vbext_ProcKind): Integer; safecall;
  1269.     function Get_ProcOfLine(Line: Integer; out ProcKind: vbext_ProcKind): WideString; safecall;
  1270.     function Get_CountOfDeclarationLines: Integer; safecall;
  1271.     function CreateEventProc(const EventName: WideString; const ObjectName: WideString): Integer; safecall;
  1272.     function Find(const Target: WideString; var StartLine: Integer; var StartColumn: Integer; 
  1273.                   var EndLine: Integer; var EndColumn: Integer; WholeWord: WordBool; 
  1274.                   MatchCase: WordBool; PatternSearch: WordBool): WordBool; safecall;
  1275.     function Get_CodePane: CodePane; safecall;
  1276.     property Parent: VBComponent read Get_Parent;
  1277.     property VBE: VBE read Get_VBE;
  1278.     property Name: WideString read Get_Name write Set_Name;
  1279.     property Lines[StartLine: Integer; Count: Integer]: WideString read Get_Lines;
  1280.     property CountOfLines: Integer read Get_CountOfLines;
  1281.     property ProcStartLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer read Get_ProcStartLine;
  1282.     property ProcCountLines[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer read Get_ProcCountLines;
  1283.     property ProcBodyLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer read Get_ProcBodyLine;
  1284.     property ProcOfLine[Line: Integer; out ProcKind: vbext_ProcKind]: WideString read Get_ProcOfLine;
  1285.     property CountOfDeclarationLines: Integer read Get_CountOfDeclarationLines;
  1286.     property CodePane: CodePane read Get_CodePane;
  1287.   end;
  1288.  
  1289. // *********************************************************************//
  1290. // DispIntf:  _CodeModuleDisp
  1291. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1292. // GUID:      {0002E16E-0000-0000-C000-000000000046}
  1293. // *********************************************************************//
  1294.   _CodeModuleDisp = dispinterface
  1295.     ['{0002E16E-0000-0000-C000-000000000046}']
  1296.     property Parent: VBComponent readonly dispid 1610743808;
  1297.     property VBE: VBE readonly dispid 1610743809;
  1298.     property Name: WideString dispid 0;
  1299.     procedure AddFromString(const String_: WideString); dispid 1610743812;
  1300.     procedure AddFromFile(const FileName: WideString); dispid 1610743813;
  1301.     property Lines[StartLine: Integer; Count: Integer]: WideString readonly dispid 1610743814;
  1302.     property CountOfLines: Integer readonly dispid 1610743815;
  1303.     procedure InsertLines(Line: Integer; const String_: WideString); dispid 1610743816;
  1304.     procedure DeleteLines(StartLine: Integer; Count: Integer); dispid 1610743817;
  1305.     procedure ReplaceLine(Line: Integer; const String_: WideString); dispid 1610743818;
  1306.     property ProcStartLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer readonly dispid 1610743819;
  1307.     property ProcCountLines[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer readonly dispid 1610743820;
  1308.     property ProcBodyLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer readonly dispid 1610743821;
  1309.     property ProcOfLine[Line: Integer; out ProcKind: vbext_ProcKind]: WideString readonly dispid 1610743822;
  1310.     property CountOfDeclarationLines: Integer readonly dispid 1610743823;
  1311.     function CreateEventProc(const EventName: WideString; const ObjectName: WideString): Integer; dispid 1610743824;
  1312.     function Find(const Target: WideString; var StartLine: Integer; var StartColumn: Integer; 
  1313.                   var EndLine: Integer; var EndColumn: Integer; WholeWord: WordBool; 
  1314.                   MatchCase: WordBool; PatternSearch: WordBool): WordBool; dispid 1610743825;
  1315.     property CodePane: CodePane readonly dispid 1610743826;
  1316.   end;
  1317.  
  1318. // *********************************************************************//
  1319. // Interface: _CodePanes
  1320. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1321. // GUID:      {0002E172-0000-0000-C000-000000000046}
  1322. // *********************************************************************//
  1323.   _CodePanes = interface(IDispatch)
  1324.     ['{0002E172-0000-0000-C000-000000000046}']
  1325.     function Get_Parent: VBE; safecall;
  1326.     function Get_VBE: VBE; safecall;
  1327.     function Item(index: OleVariant): CodePane; safecall;
  1328.     function Get_Count: Integer; safecall;
  1329.     function _NewEnum: IUnknown; safecall;
  1330.     function Get_Current: CodePane; safecall;
  1331.     procedure Set_Current(const CodePane: CodePane); safecall;
  1332.     property Parent: VBE read Get_Parent;
  1333.     property VBE: VBE read Get_VBE;
  1334.     property Count: Integer read Get_Count;
  1335.     property Current: CodePane read Get_Current write Set_Current;
  1336.   end;
  1337.  
  1338. // *********************************************************************//
  1339. // DispIntf:  _CodePanesDisp
  1340. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1341. // GUID:      {0002E172-0000-0000-C000-000000000046}
  1342. // *********************************************************************//
  1343.   _CodePanesDisp = dispinterface
  1344.     ['{0002E172-0000-0000-C000-000000000046}']
  1345.     property Parent: VBE readonly dispid 1610743808;
  1346.     property VBE: VBE readonly dispid 1610743809;
  1347.     function Item(index: OleVariant): CodePane; dispid 0;
  1348.     property Count: Integer readonly dispid 1610743811;
  1349.     function _NewEnum: IUnknown; dispid -4;
  1350.     property Current: CodePane dispid 1610743813;
  1351.   end;
  1352.  
  1353. // *********************************************************************//
  1354. // Interface: _CodePane
  1355. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1356. // GUID:      {0002E176-0000-0000-C000-000000000046}
  1357. // *********************************************************************//
  1358.   _CodePane = interface(IDispatch)
  1359.     ['{0002E176-0000-0000-C000-000000000046}']
  1360.     function Get_Collection: CodePanes; safecall;
  1361.     function Get_VBE: VBE; safecall;
  1362.     function Get_Window_: Window_; safecall;
  1363.     procedure GetSelection(out StartLine: Integer; out StartColumn: Integer; out EndLine: Integer; 
  1364.                            out EndColumn: Integer); safecall;
  1365.     procedure SetSelection(StartLine: Integer; StartColumn: Integer; EndLine: Integer; 
  1366.                            EndColumn: Integer); safecall;
  1367.     function Get_TopLine: Integer; safecall;
  1368.     procedure Set_TopLine(TopLine: Integer); safecall;
  1369.     function Get_CountOfVisibleLines: Integer; safecall;
  1370.     function Get_CodeModule: CodeModule; safecall;
  1371.     procedure Show; safecall;
  1372.     function Get_CodePaneView: vbext_CodePaneview; safecall;
  1373.     property Collection: CodePanes read Get_Collection;
  1374.     property VBE: VBE read Get_VBE;
  1375.     property Window_: Window_ read Get_Window_;
  1376.     property TopLine: Integer read Get_TopLine write Set_TopLine;
  1377.     property CountOfVisibleLines: Integer read Get_CountOfVisibleLines;
  1378.     property CodeModule: CodeModule read Get_CodeModule;
  1379.     property CodePaneView: vbext_CodePaneview read Get_CodePaneView;
  1380.   end;
  1381.  
  1382. // *********************************************************************//
  1383. // DispIntf:  _CodePaneDisp
  1384. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1385. // GUID:      {0002E176-0000-0000-C000-000000000046}
  1386. // *********************************************************************//
  1387.   _CodePaneDisp = dispinterface
  1388.     ['{0002E176-0000-0000-C000-000000000046}']
  1389.     property Collection: CodePanes readonly dispid 1610743808;
  1390.     property VBE: VBE readonly dispid 1610743809;
  1391.     property Window_: Window_ readonly dispid 1610743810;
  1392.     procedure GetSelection(out StartLine: Integer; out StartColumn: Integer; out EndLine: Integer; 
  1393.                            out EndColumn: Integer); dispid 1610743811;
  1394.     procedure SetSelection(StartLine: Integer; StartColumn: Integer; EndLine: Integer; 
  1395.                            EndColumn: Integer); dispid 1610743812;
  1396.     property TopLine: Integer dispid 1610743813;
  1397.     property CountOfVisibleLines: Integer readonly dispid 1610743815;
  1398.     property CodeModule: CodeModule readonly dispid 1610743816;
  1399.     procedure Show; dispid 1610743817;
  1400.     property CodePaneView: vbext_CodePaneview readonly dispid 1610743818;
  1401.   end;
  1402.  
  1403. // *********************************************************************//
  1404. // Interface: _References
  1405. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1406. // GUID:      {0002E17A-0000-0000-C000-000000000046}
  1407. // *********************************************************************//
  1408.   _References = interface(IDispatch)
  1409.     ['{0002E17A-0000-0000-C000-000000000046}']
  1410.     function Get_Parent: VBProject; safecall;
  1411.     function Get_VBE: VBE; safecall;
  1412.     function Item(index: OleVariant): Reference; safecall;
  1413.     function Get_Count: Integer; safecall;
  1414.     function _NewEnum: IUnknown; safecall;
  1415.     function AddFromGuid(const Guid: WideString; Major: Integer; Minor: Integer): Reference; safecall;
  1416.     function AddFromFile(const FileName: WideString): Reference; safecall;
  1417.     procedure Remove(const Reference: Reference); safecall;
  1418.     property Parent: VBProject read Get_Parent;
  1419.     property VBE: VBE read Get_VBE;
  1420.     property Count: Integer read Get_Count;
  1421.   end;
  1422.  
  1423. // *********************************************************************//
  1424. // DispIntf:  _ReferencesDisp
  1425. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1426. // GUID:      {0002E17A-0000-0000-C000-000000000046}
  1427. // *********************************************************************//
  1428.   _ReferencesDisp = dispinterface
  1429.     ['{0002E17A-0000-0000-C000-000000000046}']
  1430.     property Parent: VBProject readonly dispid 1610743808;
  1431.     property VBE: VBE readonly dispid 1610743809;
  1432.     function Item(index: OleVariant): Reference; dispid 0;
  1433.     property Count: Integer readonly dispid 1610743811;
  1434.     function _NewEnum: IUnknown; dispid -4;
  1435.     function AddFromGuid(const Guid: WideString; Major: Integer; Minor: Integer): Reference; dispid 1610743813;
  1436.     function AddFromFile(const FileName: WideString): Reference; dispid 1610743814;
  1437.     procedure Remove(const Reference: Reference); dispid 1610743815;
  1438.   end;
  1439.  
  1440. // *********************************************************************//
  1441. // Interface: Reference
  1442. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1443. // GUID:      {0002E17E-0000-0000-C000-000000000046}
  1444. // *********************************************************************//
  1445.   Reference = interface(IDispatch)
  1446.     ['{0002E17E-0000-0000-C000-000000000046}']
  1447.     function Get_Collection: References; safecall;
  1448.     function Get_VBE: VBE; safecall;
  1449.     function Get_Name: WideString; safecall;
  1450.     function Get_Guid: WideString; safecall;
  1451.     function Get_Major: Integer; safecall;
  1452.     function Get_Minor: Integer; safecall;
  1453.     function Get_FullPath: WideString; safecall;
  1454.     function Get_BuiltIn: WordBool; safecall;
  1455.     function Get_IsBroken: WordBool; safecall;
  1456.     function Get_Type_: vbext_RefKind; safecall;
  1457.     function Get_Description: WideString; safecall;
  1458.     property Collection: References read Get_Collection;
  1459.     property VBE: VBE read Get_VBE;
  1460.     property Name: WideString read Get_Name;
  1461.     property Guid: WideString read Get_Guid;
  1462.     property Major: Integer read Get_Major;
  1463.     property Minor: Integer read Get_Minor;
  1464.     property FullPath: WideString read Get_FullPath;
  1465.     property BuiltIn: WordBool read Get_BuiltIn;
  1466.     property IsBroken: WordBool read Get_IsBroken;
  1467.     property Type_: vbext_RefKind read Get_Type_;
  1468.     property Description: WideString read Get_Description;
  1469.   end;
  1470.  
  1471. // *********************************************************************//
  1472. // DispIntf:  ReferenceDisp
  1473. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1474. // GUID:      {0002E17E-0000-0000-C000-000000000046}
  1475. // *********************************************************************//
  1476.   ReferenceDisp = dispinterface
  1477.     ['{0002E17E-0000-0000-C000-000000000046}']
  1478.     property Collection: References readonly dispid 1610743808;
  1479.     property VBE: VBE readonly dispid 1610743809;
  1480.     property Name: WideString readonly dispid 1610743810;
  1481.     property Guid: WideString readonly dispid 1610743811;
  1482.     property Major: Integer readonly dispid 1610743812;
  1483.     property Minor: Integer readonly dispid 1610743813;
  1484.     property FullPath: WideString readonly dispid 1610743814;
  1485.     property BuiltIn: WordBool readonly dispid 1610743815;
  1486.     property IsBroken: WordBool readonly dispid 1610743816;
  1487.     property Type_: vbext_RefKind readonly dispid 1610743817;
  1488.     property Description: WideString readonly dispid 1610743818;
  1489.   end;
  1490.  
  1491. // *********************************************************************//
  1492. // DispIntf:  _dispReferences_Events
  1493. // Flags:     (4240) Hidden NonExtensible Dispatchable
  1494. // GUID:      {CDDE3804-2064-11CF-867F-00AA005FF34A}
  1495. // *********************************************************************//
  1496.   _dispReferences_Events = dispinterface
  1497.     ['{CDDE3804-2064-11CF-867F-00AA005FF34A}']
  1498.     procedure ItemAdded(const Reference: Reference); dispid 0;
  1499.     procedure ItemRemoved(const Reference: Reference); dispid 1;
  1500.   end;
  1501.  
  1502.   CoWindows = class
  1503.     class function Create: _Windows_;
  1504.     class function CreateRemote(const MachineName: string): _Windows_;
  1505.   end;
  1506.  
  1507.   CoLinkedWindows = class
  1508.     class function Create: _LinkedWindows;
  1509.     class function CreateRemote(const MachineName: string): _LinkedWindows;
  1510.   end;
  1511.  
  1512.   CoReferencesEvents = class
  1513.     class function Create: _ReferencesEvents;
  1514.     class function CreateRemote(const MachineName: string): _ReferencesEvents;
  1515.   end;
  1516.  
  1517.   CoCommandBarEvents = class
  1518.     class function Create: _CommandBarControlEvents;
  1519.     class function CreateRemote(const MachineName: string): _CommandBarControlEvents;
  1520.   end;
  1521.  
  1522.   CoProjectTemplate = class
  1523.     class function Create: _ProjectTemplate;
  1524.     class function CreateRemote(const MachineName: string): _ProjectTemplate;
  1525.   end;
  1526.  
  1527.   CoVBProject = class
  1528.     class function Create: _VBProject;
  1529.     class function CreateRemote(const MachineName: string): _VBProject;
  1530.   end;
  1531.  
  1532.   CoVBProjects = class
  1533.     class function Create: _VBProjects;
  1534.     class function CreateRemote(const MachineName: string): _VBProjects;
  1535.   end;
  1536.  
  1537.   CoComponents = class
  1538.     class function Create: _Components;
  1539.     class function CreateRemote(const MachineName: string): _Components;
  1540.   end;
  1541.  
  1542.   CoVBComponents = class
  1543.     class function Create: _VBComponents;
  1544.     class function CreateRemote(const MachineName: string): _VBComponents;
  1545.   end;
  1546.  
  1547.   CoComponent = class
  1548.     class function Create: _Component;
  1549.     class function CreateRemote(const MachineName: string): _Component;
  1550.   end;
  1551.  
  1552.   CoVBComponent = class
  1553.     class function Create: _VBComponent;
  1554.     class function CreateRemote(const MachineName: string): _VBComponent;
  1555.   end;
  1556.  
  1557.   CoProperties = class
  1558.     class function Create: _Properties;
  1559.     class function CreateRemote(const MachineName: string): _Properties;
  1560.   end;
  1561.  
  1562.   CoAddins = class
  1563.     class function Create: _AddIns;
  1564.     class function CreateRemote(const MachineName: string): _AddIns;
  1565.   end;
  1566.  
  1567.   CoCodeModule = class
  1568.     class function Create: _CodeModule;
  1569.     class function CreateRemote(const MachineName: string): _CodeModule;
  1570.   end;
  1571.  
  1572.   CoCodePanes = class
  1573.     class function Create: _CodePanes;
  1574.     class function CreateRemote(const MachineName: string): _CodePanes;
  1575.   end;
  1576.  
  1577.   CoCodePane = class
  1578.     class function Create: _CodePane;
  1579.     class function CreateRemote(const MachineName: string): _CodePane;
  1580.   end;
  1581.  
  1582.   CoReferences = class
  1583.     class function Create: _References;
  1584.     class function CreateRemote(const MachineName: string): _References;
  1585.   end;
  1586.  
  1587. implementation
  1588.  
  1589. uses ComObj;
  1590.  
  1591. class function CoWindows.Create: _Windows_;
  1592. begin
  1593.   Result := CreateComObject(CLASS_Windows) as _Windows_;
  1594. end;
  1595.  
  1596. class function CoWindows.CreateRemote(const MachineName: string): _Windows_;
  1597. begin
  1598.   Result := CreateRemoteComObject(MachineName, CLASS_Windows) as _Windows_;
  1599. end;
  1600.  
  1601. class function CoLinkedWindows.Create: _LinkedWindows;
  1602. begin
  1603.   Result := CreateComObject(CLASS_LinkedWindows) as _LinkedWindows;
  1604. end;
  1605.  
  1606. class function CoLinkedWindows.CreateRemote(const MachineName: string): _LinkedWindows;
  1607. begin
  1608.   Result := CreateRemoteComObject(MachineName, CLASS_LinkedWindows) as _LinkedWindows;
  1609. end;
  1610.  
  1611. class function CoReferencesEvents.Create: _ReferencesEvents;
  1612. begin
  1613.   Result := CreateComObject(CLASS_ReferencesEvents) as _ReferencesEvents;
  1614. end;
  1615.  
  1616. class function CoReferencesEvents.CreateRemote(const MachineName: string): _ReferencesEvents;
  1617. begin
  1618.   Result := CreateRemoteComObject(MachineName, CLASS_ReferencesEvents) as _ReferencesEvents;
  1619. end;
  1620.  
  1621. class function CoCommandBarEvents.Create: _CommandBarControlEvents;
  1622. begin
  1623.   Result := CreateComObject(CLASS_CommandBarEvents) as _CommandBarControlEvents;
  1624. end;
  1625.  
  1626. class function CoCommandBarEvents.CreateRemote(const MachineName: string): _CommandBarControlEvents;
  1627. begin
  1628.   Result := CreateRemoteComObject(MachineName, CLASS_CommandBarEvents) as _CommandBarControlEvents;
  1629. end;
  1630.  
  1631. class function CoProjectTemplate.Create: _ProjectTemplate;
  1632. begin
  1633.   Result := CreateComObject(CLASS_ProjectTemplate) as _ProjectTemplate;
  1634. end;
  1635.  
  1636. class function CoProjectTemplate.CreateRemote(const MachineName: string): _ProjectTemplate;
  1637. begin
  1638.   Result := CreateRemoteComObject(MachineName, CLASS_ProjectTemplate) as _ProjectTemplate;
  1639. end;
  1640.  
  1641. class function CoVBProject.Create: _VBProject;
  1642. begin
  1643.   Result := CreateComObject(CLASS_VBProject) as _VBProject;
  1644. end;
  1645.  
  1646. class function CoVBProject.CreateRemote(const MachineName: string): _VBProject;
  1647. begin
  1648.   Result := CreateRemoteComObject(MachineName, CLASS_VBProject) as _VBProject;
  1649. end;
  1650.  
  1651. class function CoVBProjects.Create: _VBProjects;
  1652. begin
  1653.   Result := CreateComObject(CLASS_VBProjects) as _VBProjects;
  1654. end;
  1655.  
  1656. class function CoVBProjects.CreateRemote(const MachineName: string): _VBProjects;
  1657. begin
  1658.   Result := CreateRemoteComObject(MachineName, CLASS_VBProjects) as _VBProjects;
  1659. end;
  1660.  
  1661. class function CoComponents.Create: _Components;
  1662. begin
  1663.   Result := CreateComObject(CLASS_Components) as _Components;
  1664. end;
  1665.  
  1666. class function CoComponents.CreateRemote(const MachineName: string): _Components;
  1667. begin
  1668.   Result := CreateRemoteComObject(MachineName, CLASS_Components) as _Components;
  1669. end;
  1670.  
  1671. class function CoVBComponents.Create: _VBComponents;
  1672. begin
  1673.   Result := CreateComObject(CLASS_VBComponents) as _VBComponents;
  1674. end;
  1675.  
  1676. class function CoVBComponents.CreateRemote(const MachineName: string): _VBComponents;
  1677. begin
  1678.   Result := CreateRemoteComObject(MachineName, CLASS_VBComponents) as _VBComponents;
  1679. end;
  1680.  
  1681. class function CoComponent.Create: _Component;
  1682. begin
  1683.   Result := CreateComObject(CLASS_Component) as _Component;
  1684. end;
  1685.  
  1686. class function CoComponent.CreateRemote(const MachineName: string): _Component;
  1687. begin
  1688.   Result := CreateRemoteComObject(MachineName, CLASS_Component) as _Component;
  1689. end;
  1690.  
  1691. class function CoVBComponent.Create: _VBComponent;
  1692. begin
  1693.   Result := CreateComObject(CLASS_VBComponent) as _VBComponent;
  1694. end;
  1695.  
  1696. class function CoVBComponent.CreateRemote(const MachineName: string): _VBComponent;
  1697. begin
  1698.   Result := CreateRemoteComObject(MachineName, CLASS_VBComponent) as _VBComponent;
  1699. end;
  1700.  
  1701. class function CoProperties.Create: _Properties;
  1702. begin
  1703.   Result := CreateComObject(CLASS_Properties) as _Properties;
  1704. end;
  1705.  
  1706. class function CoProperties.CreateRemote(const MachineName: string): _Properties;
  1707. begin
  1708.   Result := CreateRemoteComObject(MachineName, CLASS_Properties) as _Properties;
  1709. end;
  1710.  
  1711. class function CoAddins.Create: _AddIns;
  1712. begin
  1713.   Result := CreateComObject(CLASS_Addins) as _AddIns;
  1714. end;
  1715.  
  1716. class function CoAddins.CreateRemote(const MachineName: string): _AddIns;
  1717. begin
  1718.   Result := CreateRemoteComObject(MachineName, CLASS_Addins) as _AddIns;
  1719. end;
  1720.  
  1721. class function CoCodeModule.Create: _CodeModule;
  1722. begin
  1723.   Result := CreateComObject(CLASS_CodeModule) as _CodeModule;
  1724. end;
  1725.  
  1726. class function CoCodeModule.CreateRemote(const MachineName: string): _CodeModule;
  1727. begin
  1728.   Result := CreateRemoteComObject(MachineName, CLASS_CodeModule) as _CodeModule;
  1729. end;
  1730.  
  1731. class function CoCodePanes.Create: _CodePanes;
  1732. begin
  1733.   Result := CreateComObject(CLASS_CodePanes) as _CodePanes;
  1734. end;
  1735.  
  1736. class function CoCodePanes.CreateRemote(const MachineName: string): _CodePanes;
  1737. begin
  1738.   Result := CreateRemoteComObject(MachineName, CLASS_CodePanes) as _CodePanes;
  1739. end;
  1740.  
  1741. class function CoCodePane.Create: _CodePane;
  1742. begin
  1743.   Result := CreateComObject(CLASS_CodePane) as _CodePane;
  1744. end;
  1745.  
  1746. class function CoCodePane.CreateRemote(const MachineName: string): _CodePane;
  1747. begin
  1748.   Result := CreateRemoteComObject(MachineName, CLASS_CodePane) as _CodePane;
  1749. end;
  1750.  
  1751. class function CoReferences.Create: _References;
  1752. begin
  1753.   Result := CreateComObject(CLASS_References) as _References;
  1754. end;
  1755.  
  1756. class function CoReferences.CreateRemote(const MachineName: string): _References;
  1757. begin
  1758.   Result := CreateRemoteComObject(MachineName, CLASS_References) as _References;
  1759. end;
  1760.  
  1761. end.
  1762.